home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1995-02-07 | 6.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 2a 20 24 56 45 52 3a | 20 53 4e 20 4c 6f 67 69 |/* $VER:| SN Logi|
|00000010| 6e 43 6f 6e 66 69 67 52 | 75 6e 20 76 33 2e 32 20 |nConfigR|un v3.2 |
|00000020| 28 30 32 2f 30 36 2f 39 | 35 29 20 28 53 4e 2f 41 |(02/06/9|5) (SN/A|
|00000030| 48 49 20 39 31 30 2e 33 | 32 36 2e 33 38 30 34 20 |HI 910.3|26.3804 |
|00000040| 43 2d 4c 69 6e 6b 21 20 | 39 31 31 3a 36 33 38 30 |C-Link! |911:6380|
|00000050| 2f 37 20 26 20 46 69 64 | 6f 20 31 3a 33 36 31 34 |/7 & Fid|o 1:3614|
|00000060| 2f 31 31 38 20 32 38 2e | 38 6b 29 00 2a 2f 6f 70 |/118 28.|8k).*/op|
|00000070| 74 69 6f 6e 73 20 72 65 | 73 75 6c 74 73 3b 61 72 |tions re|sults;ar|
|00000080| 67 20 69 74 3b 67 75 3d | 67 65 74 75 73 65 72 3b |g it;gu=|getuser;|
|00000090| 74 72 3d 74 72 61 6e 73 | 6d 69 74 3b 73 73 3d 73 |tr=trans|mit;ss=s|
|000000a0| 65 6e 64 73 74 72 69 6e | 67 3b 67 75 20 31 35 3b |endstrin|g;gu 15;|
|000000b0| 61 63 63 73 3d 72 65 73 | 75 6c 74 3b 67 75 20 31 |accs=res|ult;gu 1|
|000000c0| 30 3b 66 6f 6e 65 3d 6c | 65 66 74 28 72 65 73 75 |0;fone=l|eft(resu|
|000000d0| 6c 74 2c 33 29 3b 67 75 | 20 32 33 3b 70 6f 72 74 |lt,3);gu| 23;port|
|000000e0| 3d 72 65 73 75 6c 74 3b | 62 62 73 69 64 65 6e 74 |=result;|bbsident|
|000000f0| 69 66 79 20 6e 61 6d 65 | 3b 62 62 73 3d 72 65 73 |ify name|;bbs=res|
|00000100| 75 6c 74 3b 67 75 20 33 | 39 3b 75 64 69 72 3d 72 |ult;gu 3|9;udir=r|
|00000110| 65 73 75 6c 74 3b 67 75 | 20 31 3b 6e 61 6d 65 3d |esult;gu| 1;name=|
|00000120| 72 65 73 75 6c 74 3b 67 | 75 20 31 32 3b 74 69 6d |result;g|u 12;tim|
|00000130| 65 3d 72 65 73 75 6c 74 | 3b 66 6e 3d 22 6d 61 69 |e=result|;fn="mai|
|00000140| 6c 3a 75 73 65 72 73 2f | 22 75 64 69 72 22 2f 5f |l:users/|"udir"/_|
|00000150| 6c 6f 67 66 69 67 22 3b | 72 6e 3d 22 52 41 4d 3a |logfig";|rn="RAM:|
|00000160| 4c 6f 67 46 69 67 2e 22 | 75 64 69 72 3b 63 61 6c |LogFig."|udir;cal|
|00000170| 6c 20 43 41 52 3b 67 65 | 74 77 68 65 72 65 20 70 |l CAR;ge|twhere p|
|00000180| 6f 72 74 3b 6f 6c 64 77 | 68 65 72 65 3d 72 65 73 |ort;oldw|here=res|
|00000190| 75 6c 74 3b 63 68 61 6e | 67 65 77 68 65 72 65 20 |ult;chan|gewhere |
|000001a0| 22 53 4e 20 4c 6f 67 46 | 69 67 20 76 33 2e 32 22 |"SN LogF|ig v3.2"|
|000001b0| 3b 6f 6d 72 3d 22 52 41 | 4d 3a 4c 46 2d 4f 4d 52 |;omr="RA|M:LF-OMR|
|000001c0| 2e 22 70 6f 72 74 3b 71 | 77 6b 3d 22 52 41 4d 3a |."port;q|wk="RAM:|
|000001d0| 4c 46 2d 51 57 4b 2e 22 | 70 6f 72 74 3b 69 66 20 |LF-QWK."|port;if |
|000001e0| 69 74 7e 3d 22 22 20 74 | 68 65 6e 20 73 69 67 6e |it~="" t|hen sign|
|000001f0| 61 6c 20 52 45 53 54 4f | 52 45 3b 62 6f 74 68 75 |al RESTO|RE;bothu|
|00000200| 76 6d 3d 30 3b 61 64 64 | 72 65 73 73 20 63 6f 6d |vm=0;add|ress com|
|00000210| 6d 61 6e 64 20 22 43 3a | 44 65 6c 65 74 65 20 52 |mand "C:|Delete R|
|00000220| 41 4d 3a 4c 46 2d 23 3f | 2e 22 70 6f 72 74 22 23 |AM:LF-#?|."port"#|
|00000230| 3f 20 46 4f 52 43 45 20 | 51 55 49 45 54 22 3b 6c |? FORCE |QUIET";l|
|00000240| 6f 67 61 3d 22 19 63 39 | 22 6e 61 6d 65 22 20 19 |oga=".c9|"name" .|
|00000250| 63 65 75 73 65 64 20 19 | 63 62 53 4e 27 73 20 22 |ceused .|cbSN's "|
|00000260| 3b 6c 6f 67 7a 3d 22 20 | 19 63 65 6f 6e 20 19 63 |;logz=" |.ceon .c|
|00000270| 61 22 74 69 6d 65 22 19 | 63 65 21 22 0a 0a 70 66 |a"time".|ce!"..pf|
|00000280| 70 3d 22 53 4e 3a 4c 6f | 67 46 69 67 2f 5f 43 6f |p="SN:Lo|gFig/_Co|
|00000290| 6e 66 69 67 2e 22 20 20 | 2f 2a 20 50 61 74 68 2f |nfig." |/* Path/|
|000002a0| 46 69 6c 65 20 50 72 65 | 66 69 78 20 2a 2f 0a 6c |File Pre|fix */.l|
|000002b0| 6f 63 61 6c 63 3d 22 39 | 31 30 20 39 31 39 22 20 |ocalc="9|10 919" |
|000002c0| 20 20 20 20 20 20 20 20 | 20 2f 2a 20 28 2a 3d 41 | | /* (*=A|
|000002d0| 4c 4c 29 20 4c 6f 63 61 | 6c 20 41 72 65 61 20 43 |LL) Loca|l Area C|
|000002e0| 6f 64 65 73 20 2a 2f 0a | 68 69 61 63 63 73 3d 22 |odes */.|hiaccs="|
|000002f0| 31 30 20 33 30 20 33 31 | 22 20 20 20 20 20 20 20 |10 30 31|" |
|00000300| 20 20 2f 2a 20 28 2a 3d | 41 4c 4c 29 20 4c 65 76 | /* (*=|ALL) Lev|
|00000310| 65 6c 73 20 41 6c 6c 6f | 77 65 64 20 74 6f 20 55 |els Allo|wed to U|
|00000320| 73 65 20 48 69 53 70 65 | 65 64 20 2a 2f 0a 6d 72 |se HiSpe|ed */.mr|
|00000330| 61 63 63 73 3d 22 2a 22 | 20 20 20 20 20 20 20 20 |accs="*"| |
|00000340| 20 20 20 20 20 20 20 20 | 2f 2a 20 28 2a 3d 41 4c | |/* (*=AL|
|00000350| 4c 29 20 4c 65 76 65 6c | 73 20 41 6c 6c 6f 77 65 |L) Level|s Allowe|
|00000360| 64 20 74 6f 20 55 73 65 | 20 4f 4d 52 2d 47 72 61 |d to Use| OMR-Gra|
|00000370| 62 62 65 72 2f 55 70 6c | 6f 61 64 20 2a 2f 0a 6d |bber/Upl|oad */.m|
|00000380| 63 61 63 63 73 3d 22 2a | 22 20 20 20 20 20 20 20 |caccs="*|" |
|00000390| 20 20 20 20 20 20 20 20 | 20 2f 2a 20 28 2a 3d 41 | | /* (*=A|
|000003a0| 4c 4c 29 20 4c 65 76 65 | 6c 73 20 41 6c 6c 6f 77 |LL) Leve|ls Allow|
|000003b0| 65 64 20 74 6f 20 55 73 | 65 20 4d 61 69 6c 43 68 |ed to Us|e MailCh|
|000003c0| 65 63 6b 20 2a 2f 0a 73 | 6b 69 70 72 73 3d 22 31 |eck */.s|kiprs="1|
|000003d0| 20 37 32 22 20 20 20 20 | 20 20 20 20 20 20 20 20 | 72" | |
|000003e0| 20 2f 2a 20 28 2a 3d 41 | 4c 4c 29 20 55 73 65 72 | /* (*=A|LL) User|
|000003f0| 49 44 73 20 41 6c 6c 6f | 77 65 64 20 74 6f 20 53 |IDs Allo|wed to S|
|00000400| 6b 69 70 20 4c 6f 67 69 | 6e 20 2a 2f 0a 73 68 6f |kip Logi|n */.sho|
|00000410| 77 66 69 72 73 74 3d 30 | 20 20 20 20 20 20 20 20 |wfirst=0| |
|00000420| 20 20 20 20 20 20 20 2f | 2a 20 53 68 6f 77 20 5f | /|* Show _|
|00000430| 43 6f 6e 66 69 67 2e 41 | 6c 6c 20 62 65 66 6f 72 |Config.A|ll befor|
|00000440| 65 20 75 73 65 72 73 20 | 63 6f 6e 66 69 67 75 72 |e users |configur|
|00000450| 65 3f 20 28 30 3d 4e 4f | 29 20 2a 2f 0a 6c 6f 67 |e? (0=NO|) */.log|
|00000460| 67 69 6e 67 3d 32 20 20 | 20 20 20 20 20 20 20 20 |ging=2 | |
|00000470| 20 20 20 20 20 20 20 2f | 2a 20 30 3d 4e 6f 6e 65 | /|* 0=None|
|00000480| 2c 20 31 3d 43 4e 65 74 | 2c 20 32 3d 53 4e 20 55 |, 1=CNet|, 2=SN U|
|00000490| 73 65 72 6c 6f 67 73 2c | 20 33 3d 42 6f 74 68 20 |serlogs,| 3=Both |
|000004a0| 2a 2f 0a 0a 75 63 6c 3d | 30 3b 75 73 6e 6c 3d 30 |*/..ucl=|0;usnl=0|
|000004b0| 3b 69 66 20 6c 6f 67 67 | 69 6e 67 3d 31 20 74 68 |;if logg|ing=1 th|
|000004c0| 65 6e 20 75 63 6c 3d 31 | 3b 69 66 20 6c 6f 67 67 |en ucl=1|;if logg|
|000004d0| 69 6e 67 3d 32 20 74 68 | 65 6e 20 75 73 6e 6c 3d |ing=2 th|en usnl=|
|000004e0| 31 3b 69 66 20 6c 6f 67 | 67 69 6e 67 3d 33 20 74 |1;if log|ging=3 t|
|000004f0| 68 65 6e 20 64 6f 3b 75 | 63 6c 3d 31 3b 75 73 6e |hen do;u|cl=1;usn|
|00000500| 6c 3d 31 3b 65 6e 64 3b | 73 6e 6c 3d 22 6d 61 69 |l=1;end;|snl="mai|
|00000510| 6c 3a 75 73 65 72 73 2f | 31 2f 5f 73 6e 69 6c 6f |l:users/|1/_snilo|
|00000520| 67 22 0a 61 6c 66 3d 70 | 66 70 22 41 6c 6c 22 3b |g".alf=p|fp"All";|
|00000530| 6e 75 66 3d 70 66 70 22 | 4e 65 77 55 73 65 72 22 |nuf=pfp"|NewUser"|
|00000540| 3b 6c 64 66 3d 70 66 70 | 22 4c 44 53 70 65 65 64 |;ldf=pfp|"LDSpeed|
|00000550| 22 3b 68 69 66 3d 70 66 | 70 22 48 69 53 70 65 65 |";hif=pf|p"HiSpee|
|00000560| 64 22 3b 6e 73 66 66 3d | 70 66 70 22 4e 6f 53 68 |d";nsff=|pfp"NoSh|
|00000570| 6f 77 31 73 74 22 0a 69 | 66 20 61 63 63 73 3d 30 |ow1st".i|f accs=0|
|00000580| 20 74 68 65 6e 20 64 6f | 3b 73 65 6e 64 66 69 6c | then do|;sendfil|
|00000590| 65 20 6e 75 66 3b 73 69 | 67 6e 61 6c 20 42 59 45 |e nuf;si|gnal BYE|
|000005a0| 3b 65 6e 64 3b 69 66 20 | 7e 65 78 69 73 74 73 28 |;end;if |~exists(|
|000005b0| 66 6e 29 20 74 68 65 6e | 20 64 6f 3b 69 66 20 73 |fn) then| do;if s|
|000005c0| 68 6f 77 66 69 72 73 74 | 3d 31 20 74 68 65 6e 20 |howfirst|=1 then |
|000005d0| 61 64 64 72 65 73 73 20 | 63 6f 6d 6d 61 6e 64 20 |address |command |
|000005e0| 22 43 3a 43 6f 70 79 20 | 22 61 6c 66 22 20 22 66 |"C:Copy |"alf" "f|
|000005f0| 6e 3b 65 6c 73 65 20 64 | 6f 3b 61 64 64 72 65 73 |n;else d|o;addres|
|00000600| 73 20 63 6f 6d 6d 61 6e | 64 20 22 43 3a 43 6f 70 |s comman|d "C:Cop|
|00000610| 79 20 22 6e 73 66 66 22 | 20 22 66 6e 3b 63 61 6c |y "nsff"| "fn;cal|
|00000620| 6c 20 6f 70 65 6e 20 74 | 66 2c 28 22 52 41 4d 3a |l open t|f,("RAM:|
|00000630| 4e 6f 53 68 6f 77 31 73 | 74 2e 22 70 6f 72 74 29 |NoShow1s|t."port)|
|00000640| 2c 22 57 22 3b 63 61 6c | 6c 20 63 6c 6f 73 65 20 |,"W";cal|l close |
|00000650| 74 66 3b 65 6e 64 3b 65 | 6e 64 0a 73 6b 69 70 3d |tf;end;e|nd.skip=|
|00000660| 30 3b 69 3d 30 3b 64 6f | 20 75 6e 74 69 6c 20 73 |0;i=0;do| until s|
|00000670| 6b 3d 22 22 3b 69 3d 69 | 2b 31 3b 73 6b 3d 73 75 |k="";i=i|+1;sk=su|
|00000680| 62 77 6f 72 64 28 73 6b | 69 70 72 73 2c 69 2c 31 |bword(sk|iprs,i,1|
|00000690| 29 3b 69 66 20 73 6b 3d | 22 2a 22 20 74 68 65 6e |);if sk=|"*" then|
|000006a0| 20 64 6f 3b 73 6b 3d 22 | 22 3b 73 6b 69 70 3d 31 | do;sk="|";skip=1|
|000006b0| 3b 65 6e 64 3b 69 66 20 | 75 64 69 72 3d 73 6b 20 |;end;if |udir=sk |
|000006c0| 74 68 65 6e 20 73 6b 69 | 70 3d 31 3b 65 6e 64 3b |then ski|p=1;end;|
|000006d0| 6c 6f 6e 67 3d 31 3b 69 | 3d 30 3b 64 6f 20 75 6e |long=1;i|=0;do un|
|000006e0| 74 69 6c 20 6c 64 3d 22 | 22 3b 69 3d 69 2b 31 3b |til ld="|";i=i+1;|
|000006f0| 6c 64 3d 73 75 62 77 6f | 72 64 28 6c 6f 63 61 6c |ld=subwo|rd(local|
|00000700| 63 2c 69 2c 31 29 3b 69 | 66 20 6c 64 3d 22 2a 22 |c,i,1);i|f ld="*"|
|00000710| 20 74 68 65 6e 20 64 6f | 3b 6c 64 3d 22 22 3b 6c | then do|;ld="";l|
|00000720| 6f 6e 67 3d 30 3b 65 6e | 64 3b 69 66 20 66 6f 6e |ong=0;en|d;if fon|
|00000730| 65 3d 6c 64 20 74 68 65 | 6e 20 6c 6f 6e 67 3d 30 |e=ld the|n long=0|
|00000740| 3b 65 6e 64 3b 68 69 67 | 68 3d 30 3b 69 3d 30 3b |;end;hig|h=0;i=0;|
|00000750| 64 6f 20 75 6e 74 69 6c | 20 68 69 3d 22 22 3b 69 |do until| hi="";i|
|00000760| 3d 69 2b 31 3b 68 69 3d | 73 75 62 77 6f 72 64 28 |=i+1;hi=|subword(|
|00000770| 68 69 61 63 63 73 2c 69 | 2c 31 29 3b 69 66 20 68 |hiaccs,i|,1);if h|
|00000780| 69 3d 22 2a 22 20 74 68 | 65 6e 20 64 6f 3b 68 69 |i="*" th|en do;hi|
|00000790| 3d 22 22 3b 68 69 67 68 | 3d 31 3b 65 6e 64 3b 69 |="";high|=1;end;i|
|000007a0| 66 20 61 63 63 73 3d 68 | 69 20 74 68 65 6e 20 68 |f accs=h|i then h|
|000007b0| 69 67 68 3d 31 3b 65 6e | 64 3b 6f 6d 72 63 3d 30 |igh=1;en|d;omrc=0|
|000007c0| 3b 69 3d 30 3b 64 6f 20 | 75 6e 74 69 6c 20 6f 61 |;i=0;do |until oa|
|000007d0| 3d 22 22 3b 69 3d 69 2b | 31 3b 6f 61 3d 73 75 62 |="";i=i+|1;oa=sub|
|000007e0| 77 6f 72 64 28 6d 72 61 | 63 63 73 2c 69 2c 31 29 |word(mra|ccs,i,1)|
|000007f0| 3b 69 66 20 6f 61 3d 22 | 2a 22 20 74 68 65 6e 20 |;if oa="|*" then |
|00000800| 64 6f 3b 6f 61 3d 22 22 | 3b 6f 6d 72 63 3d 31 3b |do;oa=""|;omrc=1;|
|00000810| 65 6e 64 3b 69 66 20 61 | 63 63 73 3d 6f 61 20 74 |end;if a|ccs=oa t|
|00000820| 68 65 6e 20 6f 6d 72 63 | 3d 31 3b 65 6e 64 3b 6d |hen omrc|=1;end;m|
|00000830| 63 68 6b 3d 30 3b 69 3d | 30 3b 64 6f 20 75 6e 74 |chk=0;i=|0;do unt|
|00000840| 69 6c 20 6d 61 3d 22 22 | 3b 69 3d 69 2b 31 3b 6d |il ma=""|;i=i+1;m|
|00000850| 61 3d 73 75 62 77 6f 72 | 64 28 6d 63 61 63 63 73 |a=subwor|d(mcaccs|
|00000860| 2c 69 2c 31 29 3b 69 66 | 20 6d 61 3d 22 2a 22 20 |,i,1);if| ma="*" |
|00000870| 74 68 65 6e 20 64 6f 3b | 6d 61 3d 22 22 3b 6d 63 |then do;|ma="";mc|
|00000880| 68 6b 3d 31 3b 65 6e 64 | 3b 69 66 20 61 63 63 73 |hk=1;end|;if accs|
|00000890| 3d 6d 61 20 74 68 65 6e | 20 6d 63 68 6b 3d 31 3b |=ma then| mchk=1;|
|000008a0| 65 6e 64 0a 4d 41 49 4e | 3a 3b 63 61 6c 6c 20 53 |end.MAIN|:;call S|
|000008b0| 4e 3b 69 66 20 73 6b 69 | 70 3d 31 20 74 68 65 6e |N;if ski|p=1 then|
|000008c0| 20 74 72 22 19 63 65 20 | 20 5b 19 63 62 53 19 63 | tr".ce | [.cbS.c|
|000008d0| 65 5d 6b 69 70 20 20 20 | 20 19 63 61 28 53 6b 69 |e]kip | .ca(Ski|
|000008e0| 70 73 20 74 68 65 20 65 | 6e 74 69 72 65 20 4c 6f |ps the e|ntire Lo|
|000008f0| 67 69 6e 20 53 65 71 75 | 65 6e 63 65 29 22 3b 69 |gin Sequ|ence)";i|
|00000900| 66 20 6c 6f 6e 67 3d 31 | 20 74 68 65 6e 20 74 72 |f long=1| then tr|
|00000910| 22 19 63 65 20 20 5b 19 | 63 62 4c 19 63 65 5d 44 |".ce [.|cbL.ce]D|
|00000920| 20 20 20 20 20 20 19 63 | 61 28 4c 6f 6e 67 20 44 | .c|a(Long D|
|00000930| 69 73 74 61 6e 63 65 20 | 53 70 65 65 64 20 4c 6f |istance |Speed Lo|
|00000940| 67 69 6e 29 22 3b 69 66 | 20 68 69 67 68 3d 31 20 |gin)";if| high=1 |
|00000950| 74 68 65 6e 20 74 72 22 | 19 63 65 20 20 5b 19 63 |then tr"|.ce [.c|
|00000960| 62 48 19 63 65 5d 69 67 | 68 20 20 20 20 19 63 61 |bH.ce]ig|h .ca|
|00000970| 28 48 69 53 70 65 65 64 | 20 4c 6f 67 69 6e 20 28 |(HiSpeed| Login (|
|00000980| 4c 65 76 65 6c 20 31 30 | 2b 29 22 3b 74 72 22 19 |Level 10|+)";tr".|
|00000990| 63 65 20 20 5b 19 63 62 | 4e 19 63 65 5d 6f 72 6d |ce [.cb|N.ce]orm|
|000009a0| 61 6c 20 20 19 63 61 28 | 4e 6f 72 6d 61 6c 20 4c |al .ca(|Normal L|
|000009b0| 6f 67 69 6e 20 53 65 71 | 75 65 6e 63 65 29 22 3b |ogin Seq|uence)";|
|000009c0| 69 66 20 6f 6d 72 63 3d | 31 20 74 68 65 6e 20 74 |if omrc=|1 then t|
|000009d0| 72 22 19 63 65 20 20 5b | 19 63 62 4f 19 63 65 5d |r".ce [|.cbO.ce]|
|000009e0| 4d 52 20 20 20 20 20 19 | 63 61 28 4f 66 66 6c 69 |MR .|ca(Offli|
|000009f0| 6e 65 20 4d 61 69 6c 20 | 52 65 61 64 65 72 20 47 |ne Mail |Reader G|
|00000a00| 72 61 62 20 4f 4e 4c 59 | 29 22 3b 69 66 20 6f 6d |rab ONLY|)";if om|
|00000a10| 72 63 3d 31 20 74 68 65 | 6e 20 74 72 22 19 63 65 |rc=1 the|n tr".ce|
|00000a20| 20 20 5b 19 63 62 51 19 | 63 65 5d 57 4b 20 20 20 | [.cbQ.|ce]WK |
|00000a30| 20 20 19 63 61 28 55 70 | 6c 6f 61 64 20 2e 51 57 | .ca(Up|load .QW|
|00000a40| 4b 20 50 61 63 6b 65 74 | 29 22 3b 69 66 20 6f 6d |K Packet|)";if om|
|00000a50| 72 63 3d 31 20 74 68 65 | 6e 20 74 72 22 19 63 65 |rc=1 the|n tr".ce|
|00000a60| 20 20 5b 19 63 62 42 19 | 63 65 5d 6f 74 68 20 20 | [.cbB.|ce]oth |
|00000a70| 20 20 19 63 61 28 55 70 | 6c 6f 61 64 2f 47 72 61 | .ca(Up|load/Gra|
|00000a80| 62 20 43 6f 6d 62 6f 29 | 22 3b 69 66 20 6d 63 68 |b Combo)|";if mch|
|00000a90| 6b 3d 31 20 74 68 65 6e | 20 74 72 22 19 63 65 20 |k=1 then| tr".ce |
|00000aa0| 20 5b 19 63 62 4d 19 63 | 65 5d 61 69 6c 20 20 20 | [.cbM.c|e]ail |
|00000ab0| 20 19 63 61 28 4d 61 69 | 6c 20 43 68 65 63 6b 20 | .ca(Mai|l Check |
|00000ac0| 4f 4e 4c 59 29 22 3b 74 | 72 22 19 63 65 20 20 5b |ONLY)";t|r".ce [|
|00000ad0| 19 63 62 3f 19 63 65 5d | 20 20 20 20 20 20 20 19 |.cb?.ce]| .|
|00000ae0| 63 61 28 44 65 73 63 72 | 69 70 74 69 6f 6e 73 20 |ca(Descr|iptions |
|00000af0| 6f 66 20 74 68 65 20 61 | 62 6f 76 65 29 19 6e 32 |of the a|bove).n2|
|00000b00| 22 0a 73 73 22 19 5e 31 | 19 63 65 43 68 6f 69 63 |".ss".^1|.ceChoic|
|00000b10| 65 3f 20 5b 19 63 62 4e | 6f 72 6d 61 6c 19 63 65 |e? [.cbN|ormal.ce|
|00000b20| 5d 20 19 63 39 22 3b 4d | 45 4e 55 3a 3b 63 61 6c |] .c9";M|ENU:;cal|
|00000b30| 6c 20 43 41 52 3b 67 65 | 74 63 68 61 72 3b 61 3d |l CAR;ge|tchar;a=|
|00000b40| 75 70 70 65 72 28 72 65 | 73 75 6c 74 29 3b 69 66 |upper(re|sult);if|
|00000b50| 20 68 61 73 68 28 61 29 | 3d 31 33 20 74 68 65 6e | hash(a)|=13 then|
|00000b60| 20 61 3d 22 4e 22 3b 61 | 3d 69 6e 64 65 78 28 22 | a="N";a|=index("|
|00000b70| 53 4c 48 4f 51 42 4d 3f | 4e 22 2c 61 29 3b 69 66 |SLHOQBM?|N",a);if|
|00000b80| 20 61 3d 30 20 74 68 65 | 6e 20 73 69 67 6e 61 6c | a=0 the|n signal|
|00000b90| 20 4d 45 4e 55 3b 69 66 | 20 61 3d 31 20 26 20 73 | MENU;if| a=1 & s|
|00000ba0| 6b 69 70 3d 31 20 74 68 | 65 6e 20 64 6f 3b 74 72 |kip=1 th|en do;tr|
|00000bb0| 22 53 6b 69 70 22 3b 73 | 69 67 6e 61 6c 20 42 59 |"Skip";s|ignal BY|
|00000bc0| 45 3b 65 6e 64 3b 69 66 | 20 61 3d 32 20 26 20 6c |E;end;if| a=2 & l|
|00000bd0| 6f 6e 67 3d 31 20 74 68 | 65 6e 20 64 6f 3b 73 65 |ong=1 th|en do;se|
|00000be0| 6e 64 66 69 6c 65 20 6c | 64 66 3b 74 72 22 4c 44 |ndfile l|df;tr"LD|
|00000bf0| 22 3b 73 69 67 6e 61 6c | 20 42 59 45 3b 65 6e 64 |";signal| BYE;end|
|00000c00| 3b 69 66 20 61 3d 33 20 | 26 20 68 69 67 68 3d 31 |;if a=3 |& high=1|
|00000c10| 20 74 68 65 6e 20 64 6f | 3b 73 65 6e 64 66 69 6c | then do|;sendfil|
|00000c20| 65 20 68 69 66 3b 74 72 | 22 48 69 67 68 22 3b 73 |e hif;tr|"High";s|
|00000c30| 69 67 6e 61 6c 20 42 59 | 45 3b 65 6e 64 3b 69 66 |ignal BY|E;end;if|
|00000c40| 20 61 3d 34 20 26 20 6f | 6d 72 63 3d 31 20 74 68 | a=4 & o|mrc=1 th|
|00000c50| 65 6e 20 64 6f 3b 74 72 | 22 4f 4d 52 20 47 72 61 |en do;tr|"OMR Gra|
|00000c60| 62 22 3b 73 69 67 6e 61 | 6c 20 4f 4d 52 46 49 47 |b";signa|l OMRFIG|
|00000c70| 3b 65 6e 64 3b 69 66 20 | 61 3d 35 20 26 20 6f 6d |;end;if |a=5 & om|
|00000c80| 72 63 3d 31 20 74 68 65 | 6e 20 64 6f 3b 74 72 22 |rc=1 the|n do;tr"|
|00000c90| 2e 51 57 4b 20 50 61 63 | 6b 65 74 20 55 70 6c 6f |.QWK Pac|ket Uplo|
|00000ca0| 61 64 22 3b 73 69 67 6e | 61 6c 20 55 50 51 57 4b |ad";sign|al UPQWK|
|00000cb0| 3b 65 6e 64 3b 69 66 20 | 61 3d 36 20 26 20 6f 6d |;end;if |a=6 & om|
|00000cc0| 72 63 3d 31 20 74 68 65 | 6e 20 64 6f 3b 74 72 22 |rc=1 the|n do;tr"|
|00000cd0| 55 70 6c 6f 61 64 2f 47 | 72 61 62 20 43 6f 6d 62 |Upload/G|rab Comb|
|00000ce0| 6f 22 3b 73 69 67 6e 61 | 6c 20 42 4f 54 48 3b 65 |o";signa|l BOTH;e|
|00000cf0| 6e 64 3b 69 66 20 61 3d | 37 20 26 20 6d 63 68 6b |nd;if a=|7 & mchk|
|00000d00| 3d 31 20 74 68 65 6e 20 | 64 6f 3b 74 72 22 4d 61 |=1 then |do;tr"Ma|
|00000d10| 69 6c 20 43 68 65 63 6b | 22 3b 73 69 67 6e 61 6c |il Check|";signal|
|00000d20| 20 4d 41 49 4c 43 48 4b | 3b 65 6e 64 3b 69 66 20 | MAILCHK|;end;if |
|00000d30| 61 3d 38 20 74 68 65 6e | 20 64 6f 3b 74 72 22 48 |a=8 then| do;tr"H|
|00000d40| 65 6c 70 21 22 3b 63 61 | 6c 6c 20 48 45 4c 50 3b |elp!";ca|ll HELP;|
|00000d50| 73 69 67 6e 61 6c 20 4d | 41 49 4e 3b 65 6e 64 3b |signal M|AIN;end;|
|00000d60| 74 72 22 4e 6f 72 6d 61 | 6c 22 3b 61 64 64 72 65 |tr"Norma|l";addre|
|00000d70| 73 73 20 63 6f 6d 6d 61 | 6e 64 20 22 43 6f 70 79 |ss comma|nd "Copy|
|00000d80| 20 22 66 6e 22 20 22 72 | 6e 3b 73 65 6e 64 66 69 | "fn" "r|n;sendfi|
|00000d90| 6c 65 20 72 6e 3b 61 64 | 64 72 65 73 73 20 63 6f |le rn;ad|dress co|
|00000da0| 6d 6d 61 6e 64 20 22 44 | 65 6c 65 74 65 20 22 72 |mmand "D|elete "r|
|00000db0| 6e 22 20 46 4f 52 43 45 | 20 51 55 49 45 54 22 3b |n" FORCE| QUIET";|
|00000dc0| 73 69 67 6e 61 6c 20 42 | 59 45 0a 42 4f 54 48 3a |signal B|YE.BOTH:|
|00000dd0| 3b 6c 6f 67 69 74 3d 6c | 6f 67 61 22 51 57 4b 20 |;logit=l|oga"QWK |
|00000de0| 55 70 6c 6f 61 64 2f 4f | 4d 52 2d 47 72 61 62 62 |Upload/O|MR-Grabb|
|00000df0| 65 72 20 43 6f 6d 62 6f | 22 6c 6f 67 7a 3b 63 61 |er Combo|"logz;ca|
|00000e00| 6c 6c 20 43 48 4b 4c 4f | 47 3b 63 61 6c 6c 20 6f |ll CHKLO|G;call o|
|00000e10| 70 65 6e 20 74 74 2c 28 | 71 77 6b 29 2c 22 57 22 |pen tt,(|qwk),"W"|
|00000e20| 3b 63 61 6c 6c 20 63 6c | 6f 73 65 20 74 74 3b 63 |;call cl|ose tt;c|
|00000e30| 61 6c 6c 20 6f 70 65 6e | 20 74 74 2c 28 6f 6d 72 |all open| tt,(omr|
|00000e40| 29 2c 22 57 22 3b 63 61 | 6c 6c 20 63 6c 6f 73 65 |),"W";ca|ll close|
|00000e50| 20 74 74 3b 62 62 73 63 | 6f 6d 6d 61 6e 64 22 51 | tt;bbsc|ommand"Q|
|00000e60| 57 4b 3b 59 3b 22 0a 4f | 4d 52 46 49 47 3a 3b 6c |WK;Y;".O|MRFIG:;l|
|00000e70| 6f 67 69 74 3d 6c 6f 67 | 61 22 4f 4d 52 2d 47 72 |ogit=log|a"OMR-Gr|
|00000e80| 61 62 62 65 72 22 6c 6f | 67 7a 3b 63 61 6c 6c 20 |abber"lo|gz;call |
|00000e90| 43 48 4b 4c 4f 47 3b 63 | 61 6c 6c 20 6f 70 65 6e |CHKLOG;c|all open|
|00000ea0| 20 74 74 2c 28 6f 6d 72 | 29 2c 22 57 22 3b 63 61 | tt,(omr|),"W";ca|
|00000eb0| 6c 6c 20 63 6c 6f 73 65 | 20 74 74 3b 62 62 73 63 |ll close| tt;bbsc|
|00000ec0| 6f 6d 6d 61 6e 64 22 4e | 4d 22 3b 65 78 69 74 0a |ommand"N|M";exit.|
|00000ed0| 55 50 51 57 4b 3a 3b 6c | 6f 67 69 74 3d 6c 6f 67 |UPQWK:;l|ogit=log|
|00000ee0| 61 22 51 57 4b 20 50 61 | 63 6b 65 74 20 55 70 6c |a"QWK Pa|cket Upl|
|00000ef0| 6f 61 64 65 72 22 6c 6f | 67 7a 3b 63 61 6c 6c 20 |oader"lo|gz;call |
|00000f00| 43 48 4b 4c 4f 47 3b 63 | 61 6c 6c 20 6f 70 65 6e |CHKLOG;c|all open|
|00000f10| 20 74 74 2c 28 71 77 6b | 29 2c 22 57 22 3b 63 61 | tt,(qwk|),"W";ca|
|00000f20| 6c 6c 20 63 6c 6f 73 65 | 20 74 74 3b 62 62 73 63 |ll close| tt;bbsc|
|00000f30| 6f 6d 6d 61 6e 64 22 51 | 57 4b 3b 59 3b 22 3b 65 |ommand"Q|WK;Y;";e|
|00000f40| 78 69 74 0a 4d 41 49 4c | 43 48 4b 3a 3b 6c 6f 67 |xit.MAIL|CHK:;log|
|00000f50| 69 74 3d 6c 6f 67 61 22 | 4d 61 69 6c 20 43 68 65 |it=loga"|Mail Che|
|00000f60| 63 6b 65 72 22 6c 6f 67 | 7a 3b 63 61 6c 6c 20 43 |cker"log|z;call C|
|00000f70| 48 4b 4c 4f 47 3b 62 62 | 73 63 6f 6d 6d 61 6e 64 |HKLOG;bb|scommand|
|00000f80| 22 4d 52 22 3b 63 61 6c | 6c 20 43 41 52 3b 62 75 |"MR";cal|l CAR;bu|
|00000f90| 66 66 65 72 66 6c 75 73 | 68 3b 70 72 6f 6d 70 74 |fferflus|h;prompt|
|00000fa0| 20 33 20 6e 6f 79 65 73 | 20 27 22 19 6e 31 19 63 | 3 noyes| '".n1.c|
|00000fb0| 65 44 6f 20 79 6f 75 20 | 77 69 73 68 20 74 6f 20 |eDo you |wish to |
|00000fc0| 63 6f 6e 74 69 6e 75 65 | 20 6c 6f 67 67 69 6e 67 |continue| logging|
|00000fd0| 20 6f 6e 3f 20 5b 19 63 | 62 4e 6f 19 63 65 5d 20 | on? [.c|bNo.ce] |
|00000fe0| 19 63 39 22 27 3b 69 66 | 20 72 65 73 75 6c 74 7e |.c9"';if| result~|
|00000ff0| 3d 22 59 65 73 22 20 74 | 68 65 6e 20 64 6f 3b 74 |="Yes" t|hen do;t|
|00001000| 72 22 19 6e 32 19 63 65 | 54 68 61 6e 6b 20 79 6f |r".n2.ce|Thank yo|
|00001010| 75 20 66 6f 72 20 75 73 | 69 6e 67 20 22 62 62 73 |u for us|ing "bbs|
|00001020| 22 27 73 20 19 63 62 4d | 61 69 6c 20 43 68 65 63 |"'s .cbM|ail Chec|
|00001030| 6b 19 63 65 21 19 6e 32 | 43 6f 6d 65 20 62 61 63 |k.ce!.n2|Come bac|
|00001040| 6b 20 61 6e 64 20 73 65 | 65 20 75 73 21 22 3b 64 |k and se|e us!";d|
|00001050| 72 6f 70 63 61 72 72 69 | 65 72 3b 73 69 67 6e 61 |ropcarri|er;signa|
|00001060| 6c 20 42 59 45 3b 65 6e | 64 3b 73 69 67 6e 61 6c |l BYE;en|d;signal|
|00001070| 20 43 4f 4e 54 49 4e 55 | 45 0a 48 45 4c 50 3a 3b | CONTINU|E.HELP:;|
|00001080| 63 61 6c 6c 20 53 4e 3b | 69 66 20 73 6b 69 70 3d |call SN;|if skip=|
|00001090| 31 20 74 68 65 6e 20 74 | 72 22 19 63 65 20 20 5b |1 then t|r".ce [|
|000010a0| 19 63 62 53 19 63 65 5d | 6b 69 70 20 20 20 20 19 |.cbS.ce]|kip .|
|000010b0| 3a 32 19 63 61 53 70 65 | 63 69 61 6c 2f 48 69 67 |:2.caSpe|cial/Hig|
|000010c0| 68 20 41 63 63 65 73 73 | 20 75 73 65 72 73 20 68 |h Access| users h|
|000010d0| 61 76 65 20 74 68 65 20 | 6f 70 74 69 6f 6e 20 74 |ave the |option t|
|000010e0| 6f 20 73 6b 69 70 20 74 | 68 65 20 65 6e 74 69 72 |o skip t|he entir|
|000010f0| 65 20 6c 6f 67 69 6e 20 | 73 65 71 75 65 6e 63 65 |e login |sequence|
|00001100| 20 74 6f 20 67 65 74 20 | 74 6f 20 74 68 65 20 6d | to get |to the m|
|00001110| 61 69 6e 20 6d 65 6e 75 | 20 61 73 20 66 61 73 74 |ain menu| as fast|
|00001120| 20 61 73 20 70 6f 73 73 | 69 62 6c 65 2e 19 3a 30 | as poss|ible..:0|
|00001130| 19 6e 31 22 3b 69 66 20 | 6c 6f 6e 67 3d 31 20 74 |.n1";if |long=1 t|
|00001140| 68 65 6e 20 74 72 22 19 | 63 65 20 20 5b 19 63 62 |hen tr".|ce [.cb|
|00001150| 4c 19 63 65 5d 44 20 20 | 20 20 20 20 19 3a 32 19 |L.ce]D | .:2.|
|00001160| 63 61 55 73 65 72 73 20 | 63 61 6c 6c 69 6e 67 20 |caUsers |calling |
|00001170| 6c 6f 6e 67 20 64 69 73 | 74 61 6e 63 65 20 75 73 |long dis|tance us|
|00001180| 75 61 6c 6c 79 20 64 6f | 6e 27 74 20 77 61 6e 74 |ually do|n't want|
|00001190| 20 74 6f 20 73 65 65 20 | 61 6c 6c 20 74 68 65 20 | to see |all the |
|000011a0| 6c 6f 63 61 6c 20 68 61 | 70 70 65 6e 69 6e 67 73 |local ha|ppenings|
|000011b0| 20 61 6e 64 20 77 61 6e | 74 20 74 6f 20 67 65 74 | and wan|t to get|
|000011c0| 20 64 6f 77 6e 20 74 6f | 20 62 75 73 69 6e 65 73 | down to| busines|
|000011d0| 73 20 71 75 69 63 6b 6c | 79 2c 20 73 6f 20 74 68 |s quickl|y, so th|
|000011e0| 69 73 20 69 66 20 66 6f | 72 20 74 68 65 6d 2e 19 |is if fo|r them..|
|000011f0| 3a 30 19 6e 31 22 3b 69 | 66 20 68 69 67 68 3d 31 |:0.n1";i|f high=1|
|00001200| 20 74 68 65 6e 20 74 72 | 22 19 63 65 20 20 5b 19 | then tr|".ce [.|
|00001210| 63 62 48 19 63 65 5d 69 | 67 68 20 20 20 20 19 3a |cbH.ce]i|gh .:|
|00001220| 32 19 63 61 43 6f 6e 74 | 72 69 62 75 74 69 6e 67 |2.caCont|ributing|
|00001230| 20 75 73 65 72 73 20 28 | 4c 65 76 65 6c 20 31 30 | users (|Level 10|
|00001240| 2b 29 20 63 61 6e 20 75 | 73 65 20 74 68 69 73 20 |+) can u|se this |
|00001250| 74 6f 20 73 6b 69 70 20 | 6d 6f 73 74 20 6f 66 20 |to skip |most of |
|00001260| 74 68 65 20 6c 6f 67 69 | 6e 20 73 65 71 75 65 6e |the logi|n sequen|
|00001270| 63 65 20 77 68 65 6e 20 | 74 68 65 79 27 72 65 20 |ce when |they're |
|00001280| 69 6e 20 61 20 68 75 72 | 72 79 2e 19 3a 30 19 6e |in a hur|ry..:0.n|
|00001290| 31 22 3b 74 72 22 19 63 | 65 20 20 5b 19 63 62 4e |1";tr".c|e [.cbN|
|000012a0| 19 63 65 5d 6f 72 6d 61 | 6c 20 20 19 3a 32 19 63 |.ce]orma|l .:2.c|
|000012b0| 61 54 68 69 73 20 69 73 | 20 74 68 65 20 6e 6f 72 |aThis is| the nor|
|000012c0| 6d 61 6c 20 6c 6f 67 69 | 6e 20 73 65 71 75 65 6e |mal logi|n sequen|
|000012d0| 63 65 2c 20 68 6f 77 65 | 76 65 72 20 69 74 20 69 |ce, howe|ver it i|
|000012e0| 73 20 63 6f 6e 66 69 67 | 75 72 61 62 6c 65 20 62 |s config|urable b|
|000012f0| 79 20 75 73 69 6e 67 20 | 74 68 65 20 4c 6f 67 69 |y using |the Logi|
|00001300| 6e 20 43 6f 6e 66 69 67 | 20 75 74 69 6c 69 74 79 |n Config| utility|
|00001310| 20 61 74 20 74 68 65 20 | 6d 61 69 6e 20 6d 65 6e | at the |main men|
|00001320| 75 20 62 79 20 74 79 70 | 69 6e 67 20 5b 19 63 62 |u by typ|ing [.cb|
|00001330| 4c 4f 47 49 4e 19 63 61 | 5d 2e 19 3a 30 19 6e 31 |LOGIN.ca|]..:0.n1|
|00001340| 22 0a 69 66 20 6f 6d 72 | 63 3d 31 20 26 20 63 6f |".if omr|c=1 & co|
|00001350| 6e 74 3d 30 20 74 68 65 | 6e 20 74 72 22 19 63 65 |nt=0 the|n tr".ce|
|00001360| 20 20 5b 19 63 62 4f 19 | 63 65 5d 4d 52 20 20 20 | [.cbO.|ce]MR |
|00001370| 20 20 19 3a 32 19 63 61 | 54 68 69 73 20 69 73 20 | .:2.ca|This is |
|00001380| 75 73 65 66 75 6c 20 69 | 66 20 79 6f 75 27 72 65 |useful i|f you're|
|00001390| 20 6f 6e 6c 79 20 69 6e | 74 65 72 65 73 74 65 64 | only in|terested|
|000013a0| 20 69 6e 20 67 72 61 62 | 62 69 6e 67 20 61 20 2e | in grab|bing a .|
|000013b0| 51 57 4b 20 70 61 63 6b | 65 74 20 61 6e 64 20 67 |QWK pack|et and g|
|000013c0| 65 74 74 69 6e 67 20 6f | 66 66 2e 20 20 41 6c 73 |etting o|ff. Als|
|000013d0| 6f 20 67 72 61 62 73 20 | 79 6f 75 72 20 70 65 72 |o grabs |your per|
|000013e0| 73 6f 6e 61 6c 20 6d 61 | 69 6c 21 19 3a 30 19 6e |sonal ma|il!.:0.n|
|000013f0| 31 22 3b 69 66 20 6f 6d | 72 63 3d 31 20 74 68 65 |1";if om|rc=1 the|
|00001400| 6e 20 74 72 22 19 63 65 | 20 20 5b 19 63 62 51 19 |n tr".ce| [.cbQ.|
|00001410| 63 65 5d 57 4b 20 20 20 | 20 20 19 3a 32 19 63 61 |ce]WK | .:2.ca|
|00001420| 54 68 69 73 20 69 73 20 | 75 73 65 66 75 6c 20 69 |This is |useful i|
|00001430| 66 20 79 6f 75 27 72 65 | 20 6f 6e 6c 79 20 69 6e |f you're| only in|
|00001440| 74 65 72 65 73 74 65 64 | 20 69 6e 20 75 70 6c 6f |terested| in uplo|
|00001450| 61 64 69 6e 67 20 61 20 | 2e 51 57 4b 20 70 61 63 |ading a |.QWK pac|
|00001460| 6b 65 74 20 61 6e 64 20 | 67 65 74 74 69 6e 67 20 |ket and |getting |
|00001470| 6f 66 66 2e 19 3a 30 19 | 6e 31 22 3b 69 66 20 6f |off..:0.|n1";if o|
|00001480| 6d 72 63 3d 31 20 74 68 | 65 6e 20 74 72 22 19 63 |mrc=1 th|en tr".c|
|00001490| 65 20 20 5b 19 63 62 42 | 19 63 65 5d 6f 74 68 20 |e [.cbB|.ce]oth |
|000014a0| 20 20 20 19 3a 32 19 63 | 61 54 68 69 73 20 69 73 | .:2.c|aThis is|
|000014b0| 20 61 20 63 6f 6d 62 69 | 6e 61 74 69 6f 6e 20 6f | a combi|nation o|
|000014c0| 66 20 74 68 65 20 61 62 | 6f 76 65 20 74 77 6f 2e |f the ab|ove two.|
|000014d0| 19 3a 30 19 6e 31 22 3b | 69 66 20 6d 63 68 6b 3d |.:0.n1";|if mchk=|
|000014e0| 31 20 74 68 65 6e 20 74 | 72 22 19 63 65 20 20 5b |1 then t|r".ce [|
|000014f0| 19 63 62 4d 19 63 65 5d | 61 69 6c 20 20 20 20 19 |.cbM.ce]|ail .|
|00001500| 3a 32 19 63 61 54 68 69 | 73 20 69 73 20 75 73 65 |:2.caThi|s is use|
|00001510| 66 75 6c 20 69 66 20 79 | 6f 75 27 72 65 20 6f 6e |ful if y|ou're on|
|00001520| 6c 79 20 69 6e 74 65 72 | 65 73 74 65 64 20 69 6e |ly inter|ested in|
|00001530| 20 63 68 65 63 6b 69 6e | 67 20 79 6f 75 72 20 6d | checkin|g your m|
|00001540| 61 69 6c 20 61 6e 64 20 | 67 65 74 74 69 6e 67 20 |ail and |getting |
|00001550| 6f 66 66 2e 19 3a 30 22 | 3b 73 73 22 19 6e 31 19 |off..:0"|;ss".n1.|
|00001560| 63 66 48 69 74 20 61 6e | 79 20 6b 65 79 20 74 6f |cfHit an|y key to|
|00001570| 20 63 6f 6e 74 69 6e 75 | 65 2e 2e 2e 20 22 3b 62 | continu|e... ";b|
|00001580| 75 66 66 65 72 66 6c 75 | 73 68 3b 67 65 74 63 68 |ufferflu|sh;getch|
|00001590| 61 72 3b 74 72 22 19 71 | 31 19 68 39 19 68 39 19 |ar;tr".q|1.h9.h9.|
|000015a0| 68 39 19 68 39 19 5e 32 | 22 3b 73 69 67 6e 61 6c |h9.h9.^2|";signal|
|000015b0| 20 4d 41 49 4e 3b 72 65 | 74 75 72 6e 0a 43 41 52 | MAIN;re|turn.CAR|
|000015c0| 3a 3b 67 65 74 63 61 72 | 72 69 65 72 3b 69 66 20 |:;getcar|rier;if |
|000015d0| 72 65 73 75 6c 74 7e 3d | 22 46 41 4c 53 45 22 20 |result~=|"FALSE" |
|000015e0| 74 68 65 6e 20 72 65 74 | 75 72 6e 0a 42 59 45 3a |then ret|urn.BYE:|
|000015f0| 3b 63 68 61 6e 67 65 77 | 68 65 72 65 20 6f 6c 64 |;changew|here old|
|00001600| 77 68 65 72 65 3b 65 78 | 69 74 0a 53 4e 3a 3b 74 |where;ex|it.SN:;t|
|00001610| 72 22 19 71 31 19 66 31 | 19 63 30 19 7a 37 20 53 |r".q1.f1|.c0.z7 S|
|00001620| 4e 20 4c 6f 67 69 6e 43 | 6f 6e 66 69 67 52 75 6e |N LoginC|onfigRun|
|00001630| 20 76 33 2e 32 20 19 7a | 30 20 19 63 62 a9 20 31 | v3.2 .z|0 .cb. 1|
|00001640| 39 39 34 2d 39 35 20 19 | 63 39 4d 69 64 6e 69 67 |994-95 .|c9Midnig|
|00001650| 68 74 20 19 63 66 28 19 | 63 64 53 4e 19 63 66 2f |ht .cf(.|cdSN.cf/|
|00001660| 19 63 64 41 48 49 20 39 | 31 30 2d 33 32 36 2d 33 |.cdAHI 9|10-326-3|
|00001670| 38 30 34 20 32 38 2e 38 | 6b 19 63 66 29 19 6e 31 |804 28.8|k.cf).n1|
|00001680| 22 3b 72 65 74 75 72 6e | 0a 44 52 4f 50 3a 3b 61 |";return|.DROP:;a|
|00001690| 64 64 72 65 73 73 20 63 | 6f 6d 6d 61 6e 64 20 22 |ddress c|ommand "|
|000016a0| 43 3a 44 65 6c 65 74 65 | 20 52 41 4d 3a 4c 46 2d |C:Delete| RAM:LF-|
|000016b0| 23 3f 2e 22 70 6f 72 74 | 22 23 3f 20 46 4f 52 43 |#?."port|"#? FORC|
|000016c0| 45 20 51 55 49 45 54 22 | 3b 64 72 6f 70 63 61 72 |E QUIET"|;dropcar|
|000016d0| 72 69 65 72 3b 61 64 64 | 6b 65 79 73 22 60 60 22 |rier;add|keys"``"|
|000016e0| 3b 65 78 69 74 0a 41 53 | 4b 4d 45 3a 3b 63 61 6c |;exit.AS|KME:;cal|
|000016f0| 6c 20 43 41 52 3b 70 72 | 6f 6d 70 74 20 33 20 6e |l CAR;pr|ompt 3 n|
|00001700| 6f 79 65 73 20 27 22 19 | 6e 31 19 63 65 44 6f 20 |oyes '".|n1.ceDo |
|00001710| 79 6f 75 20 77 69 73 68 | 20 74 6f 20 63 6f 6e 74 |you wish| to cont|
|00001720| 69 6e 75 65 20 6c 6f 67 | 67 69 6e 67 20 6f 6e 3f |inue log|ging on?|
|00001730| 20 5b 19 63 62 4e 6f 19 | 63 65 5d 20 19 63 39 22 | [.cbNo.|ce] .c9"|
|00001740| 27 3b 69 66 20 72 65 73 | 75 6c 74 3d 22 59 65 73 |';if res|ult="Yes|
|00001750| 22 20 74 68 65 6e 20 73 | 69 67 6e 61 6c 20 43 4f |" then s|ignal CO|
|00001760| 4e 54 49 4e 55 45 3b 72 | 65 74 75 72 6e 0a 43 4f |NTINUE;r|eturn.CO|
|00001770| 4e 54 49 4e 55 45 3a 3b | 61 64 64 72 65 73 73 20 |NTINUE:;|address |
|00001780| 63 6f 6d 6d 61 6e 64 20 | 22 43 6f 70 79 20 22 66 |command |"Copy "f|
|00001790| 6e 22 20 22 72 6e 3b 73 | 65 6e 64 66 69 6c 65 20 |n" "rn;s|endfile |
|000017a0| 72 6e 3b 61 64 64 72 65 | 73 73 20 63 6f 6d 6d 61 |rn;addre|ss comma|
|000017b0| 6e 64 20 22 44 65 6c 65 | 74 65 20 22 72 6e 22 20 |nd "Dele|te "rn" |
|000017c0| 52 41 4d 3a 4c 46 2d 23 | 3f 2e 22 70 6f 72 74 22 |RAM:LF-#|?."port"|
|000017d0| 23 3f 20 46 4f 52 43 45 | 20 51 55 49 45 54 22 3b |#? FORCE| QUIET";|
|000017e0| 73 69 67 6e 61 6c 20 42 | 59 45 0a 43 48 4b 4c 4f |signal B|YE.CHKLO|
|000017f0| 47 3a 3b 69 66 20 75 63 | 6c 3d 31 20 74 68 65 6e |G:;if uc|l=1 then|
|00001800| 20 64 6f 3b 6c 6f 67 65 | 6e 74 72 79 20 22 20 20 | do;loge|ntry " |
|00001810| 20 20 20 20 20 20 19 3a | 32 22 6c 6f 67 69 74 22 | .:|2"logit"|
|00001820| 19 3a 30 22 3b 65 6e 64 | 3b 69 66 20 75 73 6e 6c |.:0";end|;if usnl|
|00001830| 3d 31 20 74 68 65 6e 20 | 64 6f 3b 63 61 6c 6c 20 |=1 then |do;call |
|00001840| 6f 70 65 6e 20 75 6c 66 | 2c 28 73 6e 6c 29 2c 22 |open ulf|,(snl),"|
|00001850| 41 22 3b 63 61 6c 6c 20 | 77 72 69 74 65 6c 6e 20 |A";call |writeln |
|00001860| 75 6c 66 2c 6c 6f 67 69 | 74 3b 63 61 6c 6c 20 63 |ulf,logi|t;call c|
|00001870| 6c 6f 73 65 20 75 6c 66 | 3b 72 65 74 75 72 6e 0a |lose ulf|;return.|
|00001880| 52 45 53 54 4f 52 45 3a | 3b 63 61 6c 6c 20 43 41 |RESTORE:|;call CA|
|00001890| 52 3b 69 66 20 7e 65 78 | 69 73 74 73 28 6f 6d 72 |R;if ~ex|ists(omr|
|000018a0| 29 20 26 20 7e 65 78 69 | 73 74 73 28 71 77 6b 29 |) & ~exi|sts(qwk)|
|000018b0| 20 74 68 65 6e 20 65 78 | 69 74 0a 69 66 20 69 74 | then ex|it.if it|
|000018c0| 3d 22 4e 4d 22 20 74 68 | 65 6e 20 61 64 64 6b 65 |="NM" th|en addke|
|000018d0| 79 73 22 4e 22 0a 69 66 | 20 69 74 3d 22 44 4c 22 |ys"N".if| it="DL"|
|000018e0| 20 26 20 65 78 69 73 74 | 73 28 6f 6d 72 29 20 74 | & exist|s(omr) t|
|000018f0| 68 65 6e 20 61 64 64 6b | 65 79 73 22 60 44 53 21 |hen addk|eys"`DS!|
|00001900| 60 22 0a 69 66 20 69 74 | 3d 22 4e 4f 54 49 46 59 |`".if it|="NOTIFY|
|00001910| 22 20 26 20 65 78 69 73 | 74 73 28 6f 6d 72 29 20 |" & exis|ts(omr) |
|00001920| 74 68 65 6e 20 74 72 22 | 19 6e 31 19 63 62 41 54 |then tr"|.n1.cbAT|
|00001930| 54 45 4e 54 49 4f 4e 20 | 4f 4d 52 2d 47 52 41 42 |TENTION |OMR-GRAB|
|00001940| 20 55 53 45 52 3a 20 20 | 19 3a 32 19 63 65 41 73 | USER: |.:2.ceAs|
|00001950| 20 73 6f 6f 6e 20 61 73 | 20 74 68 65 20 79 61 6e | soon as| the yan|
|00001960| 6b 20 70 72 6f 63 65 73 | 73 20 69 73 20 63 6f 6d |k proces|s is com|
|00001970| 70 6c 65 74 65 2c 20 69 | 74 20 77 69 6c 6c 20 61 |plete, i|t will a|
|00001980| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 20 69 6e 69 |utomatic|ally ini|
|00001990| 74 69 61 74 65 20 61 20 | 64 6f 77 6e 6c 6f 61 64 |tiate a |download|
|000019a0| 20 74 68 65 6e 20 6c 6f | 67 6f 66 66 2e 19 3a 30 | then lo|goff..:0|
|000019b0| 22 0a 69 66 20 69 74 3d | 22 4c 4f 47 4f 46 46 22 |".if it=|"LOGOFF"|
|000019c0| 20 26 20 65 78 69 73 74 | 73 28 6f 6d 72 29 20 74 | & exist|s(omr) t|
|000019d0| 68 65 6e 20 64 6f 3b 69 | 66 20 65 78 69 73 74 73 |hen do;i|f exists|
|000019e0| 28 71 77 6b 29 20 74 68 | 65 6e 20 65 78 69 74 3b |(qwk) th|en exit;|
|000019f0| 65 6c 73 65 20 64 6f 3b | 63 61 6c 6c 20 41 53 4b |else do;|call ASK|
|00001a00| 4d 45 3b 74 72 22 19 6e | 31 19 63 65 54 68 61 6e |ME;tr".n|1.ceThan|
|00001a10| 6b 20 79 6f 75 20 66 6f | 72 20 75 73 69 6e 67 20 |k you fo|r using |
|00001a20| 22 62 62 73 22 27 73 20 | 19 63 62 4f 4d 52 2d 47 |"bbs"'s |.cbOMR-G|
|00001a30| 72 61 62 62 65 72 19 63 | 65 21 19 6e 32 43 6f 6d |rabber.c|e!.n2Com|
|00001a40| 65 20 62 61 63 6b 20 61 | 6e 64 20 73 65 65 20 75 |e back a|nd see u|
|00001a50| 73 21 22 3b 73 69 67 6e | 61 6c 20 44 52 4f 50 3b |s!";sign|al DROP;|
|00001a60| 65 6e 64 3b 65 6e 64 0a | 69 66 20 69 74 3d 22 4e |end;end.|if it="N|
|00001a70| 4f 4e 45 22 20 26 20 65 | 78 69 73 74 73 28 6f 6d |ONE" & e|xists(om|
|00001a80| 72 29 20 74 68 65 6e 20 | 64 6f 3b 63 61 6c 6c 20 |r) then |do;call |
|00001a90| 41 53 4b 4d 45 3b 74 72 | 22 19 6e 31 19 63 65 54 |ASKME;tr|".n1.ceT|
|00001aa0| 68 61 6e 6b 20 79 6f 75 | 20 66 6f 72 20 75 73 69 |hank you| for usi|
|00001ab0| 6e 67 20 22 62 62 73 22 | 27 73 20 19 63 62 4f 4d |ng "bbs"|'s .cbOM|
|00001ac0| 52 2d 47 72 61 62 62 65 | 72 19 63 65 21 19 6e 32 |R-Grabbe|r.ce!.n2|
|00001ad0| 43 6f 6d 65 20 62 61 63 | 6b 20 61 6e 64 20 73 65 |Come bac|k and se|
|00001ae0| 65 20 75 73 21 22 3b 73 | 69 67 6e 61 6c 20 44 52 |e us!";s|ignal DR|
|00001af0| 4f 50 3b 65 6e 64 0a 69 | 66 20 69 74 3d 22 51 57 |OP;end.i|f it="QW|
|00001b00| 4b 4f 46 46 22 20 26 20 | 65 78 69 73 74 73 28 71 |KOFF" & |exists(q|
|00001b10| 77 6b 29 20 74 68 65 6e | 20 64 6f 3b 69 66 20 65 |wk) then| do;if e|
|00001b20| 78 69 73 74 73 28 6f 6d | 72 29 20 74 68 65 6e 20 |xists(om|r) then |
|00001b30| 65 78 69 74 3b 65 6c 73 | 65 20 64 6f 3b 63 61 6c |exit;els|e do;cal|
|00001b40| 6c 20 41 53 4b 4d 45 3b | 74 72 22 19 6e 31 19 63 |l ASKME;|tr".n1.c|
|00001b50| 65 54 68 61 6e 6b 20 79 | 6f 75 20 66 6f 72 20 75 |eThank y|ou for u|
|00001b60| 73 69 6e 67 20 22 62 62 | 73 22 27 73 20 19 63 62 |sing "bb|s"'s .cb|
|00001b70| 51 57 4b 2d 55 70 6c 6f | 61 64 65 72 19 63 65 21 |QWK-Uplo|ader.ce!|
|00001b80| 19 6e 32 43 6f 6d 65 20 | 62 61 63 6b 20 61 6e 64 |.n2Come |back and|
|00001b90| 20 73 65 65 20 75 73 21 | 22 3b 73 69 67 6e 61 6c | see us!|";signal|
|00001ba0| 20 44 52 4f 50 3b 65 6e | 64 3b 65 6e 64 0a | DROP;en|d;end. |
+--------+-------------------------+-------------------------+--------+--------+
